BBS in a Box 5/BBS in a Box -Volume V (BBS in a Box) (April 1992).iso/Files/System7 tools/C/Compatibility Checker 1.1.cpt/Compatibility Checker 1.1/stack_-1.xml

Extensible Markup Language | 1991-08-05 | 28KB | 32 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.1</name>
    <id>-1</id>
    <cardCount>11</cardCount>
    <cardID>7471</cardID>
    <listID>2889</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞-- Compatibility Checker 1.1   30 July 1991-- ©Copyright 1990,1991 by Desktop Services, Apple Computer, Inc.-- All Rights Reserved---- "Compatability Checker" by Neal Robison and Mike Byrne of-- Apple Desktop Services.---- This stack will examine any volumes attached to your Macintosh and-- see if the applications, and inits are compatible with System 7.0.-- In addition, it will check some of your Macintosh's hardware for-- System 7 compatibility.---- XFCNs used in this stack:------------------------------------------------------ ChosenPrinter()     -- Mike Byrne, Apple Computer-- ExtractVersion()    --      "-- FileFromPath()      --      "-- FileNation()        --      "-- FilterDirectory()   --      "-- GetSpeakerVol()     --      "-- SystemFolder()      --      "-- TableWidth()        --      "-- VersionCompare()    --      "-- DiskSpaceAvail()    -- Eric Carlson and Anup Murarka, Apple Computer-- FileVersion()       --      "-- HFSCopy()           --      "-- LocalVolumeList()   --      "-- TotalRAM()          --      "-- VolumeIsLocked()    --      "-- Volumes()           -- John Crossley, Apple Computer-- SysEnv()            -- Thomas Scott, Apple Computer-- HFSMove()           -- Chris Derossi, Apple Computer---- XCMDs used in this stack:--------------------------------------------------------- SetSpeakerVol       -- Mike Byrne, Apple Computer-- Thermometer         --      "-- FindInXCMD          -- Phil Beisel, Apple Computer-- XPrintField         -- Joe Zuffoletto, Apple Computer∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞==============================-- System Messages Handlers --==============================on openStackglobal Messages,Moved,gInternational,BYI,gDoingScan,INITProblemput TRUE into INITProblemchoose browse toolset cursor to watchhide menubardoOpeningSplashfindStartUpVolumemoveIfLockedif Moved is not TRUE then checkForDiskSpaceconvertIfVersionTwosystemEnvironmentCheckput FALSE into gDoingScanpush cardset lockScreen to TRUEsetUpVolumeSelectiongo cd "Headers 2"if the hilite of cd btn "Yes" is TRUE then put TRUE into gInternational --∆else put FALSE into gInternationalpop cardset lockScreen to FALSEif BYI is TRUE then BYISetUpsetUserLevelend openStackon closeStackglobal OldSpeakerVol,INITProblem,OldUserLevelif INITProblem is not TRUE thenput "The items you moved out of the System Folder remain "&¬"active until you shut down or restart your computer. "&¬"Be sure to restart your Macintosh before installing "&¬"System 7." into answerStringanswer answerString --∆end ifpush cardset lockScreen to TRUEgo cd "Introduction"send "hideDialog" to bg "Checker"hide cd btn "Contents" --∆show cd btn "Cover2"go cd "Volumes"send "hideDialog" to bg "Checker"show cd btn "Start Checking" --∆repeat with buttonNumber = 1 to 9set the name of btn buttonNumber to "Some Volume" --∆show cd btn buttonNumberset the hilite of cd btn buttonNumber to FALSEend repeatgo cd "Results"put empty into cd fld "Results"put empty into cd fld "Results 2"put empty into cd fld "Results 3"hide cd btn "Section 1" --∆hide cd btn "Section 2" --∆hide cd btn "Section 3" --∆show card field "Results"hide card field "Results 2"hide card field "Results 3"go cd "Caution—INITs"put empty into cd fld "List of INITs"put empty into cd fld "Startup Information"pop cardif the version < 2.0 thenif OldSpeakerVol is not empty then SetSpeakerVol OldSpeakerVolend ifif OldUserLevel is not empty then set the userLevel to OldUserLevelend closeStackon doOpeningSplashglobal BeenHereBeforeif BeenHereBefore is not TRUE thengo cd "Splash 1"wait 25 ticksvisual effect barn door opengo cd "Splash 2"wait 50 ticksgo cd "Splash 3"wait 100 ticksgo cd "Introduction"put TRUE into BeenHereBeforeelseif the short name of this cd is "Splash 1" then go cd "Introduction"end ifend doOpeningSplashon setUserLevelglobal OldUserLevelif OldUserLevel is empty then put the userLevel into OldUserLevelset the userLevel to 5end setUserLevel==============================-- Checking Set-Up handlers --==============================on BYISetUpglobal BYIpush cdset lockScreen to TRUEgo cd "Introduction"show cd btn "Contents" --∆hide cd btn "Cover2"pop cdset lockScreen to FALSEput TRUE into BYIend BYISetUpfunction volFromPath pathNameput offset(":", pathName) into theCharput char 1 to theChar of pathName into thisVolreturn (thisVol)end volFromPathon findStartUpVolumeglobal StartUpVolume,TheSystemFolderput SystemFolder() into TheSystemFolderput offset(":",TheSystemFolder) into theCharput char 1 to (theChar - 1) of TheSystemFolder into StartUpVolumeend findStartUpVolumeon systemEnvironmentCheckglobal OldSpeakerVol,IsVMCapable,Is32BitAddressableput SysEnv() into sysEnvResultsput item 3 of sysEnvResults into systemVersionif systemVersion ≥ "0607" thenif the version < 2.0 thenif OldSpeakerVol is empty then put GetSpeakerVol() into OldSpeakerVolSetSpeakerVol 0end ifend ifput item 2 of sysEnvResults into MachineTypeput item 10 of sysEnvResults into PMMU--32-bit addressing checkif MachineType = "Macintosh IIfx" or ¬MachineType = "Macintosh IIci" or MachineType = "Macintosh IIsi" or ¬MachineType = "Macintosh LC" thenput TRUE into Is32BitAddressableend if--VM checkif PMMU = TRUE then put TRUE into IsVMCapableend systemEnvironmentCheckon moveIfLockedglobal theError,StartUpVolume,Moved,newCompChecker,gMountedVolsput empty into theErrorput empty into hyperTalkCopyif Moved is not TRUE thenput word 2 of the long name of this stack into thisStackdelete last char of thisStackdelete first char of thisStackput VolFromPath(thisStack) into potentialCDput potentialCD into thisVoldelete last char of potentialCDput VolumeIsLocked(thisVol,theError) into lockedStatusif (lockedStatus) or (potentialCD = "System 7.0 CD-ROM") then --∆put "Compatibility Checker cannot be used on a locked disk. For "&¬"best results, it should be used on a hard disk. Click Copy to "&¬"make a copy of Compatibility Checker on your startup hard disk."¬into answerString --∆answer answerString with "Quit" or "Copy" --∆if it is "Quit" then --∆doMenu "Quit HyperCard"exit to HyperCardend ifset cursor to watchput DiskSpaceAvail(StartUpVolume) into freeSpaceif (freeSpace div 1024) < 250 thenput "There is not enough space on your startup disk to copy "&¬"Compatibility Checker." into answerString --∆answer answerString with "OK" --∆doMenu "Quit HyperCard"exit to HyperCardelseput StartUpVolume & ":Compatibility Checker 1.1" into newCompChecker --∆if the version ≥ 2.0 thensave stack as newCompCheckerput the result into theErrorput TRUE into hyperTalkCopyelseget HFSCopy(thisStack,newCompChecker,"noDialog:theError")end ifif "-48" is in theError or theError="Can't duplicate stack." thenput "Compatibility Checker cannot be copied because there is "&¬"another stack with the same name on your startup disk." ¬into answerString --∆answer answerString with "Quit" --∆if it is "Quit" then --∆doMenu "Quit HyperCard"exit to HyperCardend ifend ifif theError is empty thenput TRUE into Movedgo to stack newCompCheckerif hyperTalkCopy is TRUE then send "openStack" to stack newCompCheckerexit to HyperCardend ifset cursor to handend ifelse exit moveIfLockedend ifend moveIfLockedon checkForDiskSpaceput word 2 of the long name of this stack into thisStackdelete last char of thisStackdelete first char of thisStackput thisStack into thisVolumeput volFromPath(thisVolume) into theVolumeput DiskSpaceAvail(theVolume) into freeSpaceput freeSpace div 1024 into freeSpaceif freeSpace < 200 thenput 200 - freeSpace into needToRemoveput "You need an additional " & needToRemove & "K of space on "&¬thisVolume & " to use Compatibility Checker." into answerString --∆answer answerString with "Quit" --∆doMenu "Quit HyperCard"exit to HyperCardend ifend checkForDiskSpaceon convertIfVersionTwoif the version >= 2.0 thenif there is a menuItem "Convert Stack..." of menu "File" thendoMenu "Convert Stack..." without dialogset lockScreen to TRUEpush cardgo homepop cardset lockScreen to FALSEend ifend ifend convertIfVersionTwoon setUpVolumeSelectionglobal gNumofVols,gMountedVols,gSelectedVols,gNumSelectedglobal StartUpVolume,StartUpVolumeChecked,TooManyVolumesset lockScreen to TRUEpush cdgo cd "Introduction"put Volumes() into gMountedVolsrepeat with i = 1 to the number of lines in gMountedVolsif line i of gMountedVols is "Before You Install System 7" then --∆delete line i of gMountedVolsend ifend repeatput the number of lines in gMountedVols into gNumofVolsput empty into appleShareExistsput appleShareCheck() into appleShareExistsif gNumofVols > 2 or appleShareExists is TRUE thengo cd "Introduction"hide cd btn "Start Checking" --∆show cd btn "Set Up" --∆put "To continue, click Set Up, below." ¬into cd fld "Continue Information" --∆if gNumofVols > 9 then --we're not going to check more than 9 volsput 9 into gNumofVolsif TooManyVolumes is not TRUE thenput "There are more than 9 disks attached to your Macintosh. "&¬"Compatibility Checker will check only the first 9 disks." ¬into answerStringanswer answerString with "Continue"  --∆put TRUE into TooManyVolumesend ifend ifelsego cd "Introduction"hide cd btn "Set up" --∆show cd btn "Start Checking" --∆put "To continue, click Start Checking, below." ¬into cd fld "Continue Information" --∆put gMountedVols into gSelectedVolsput the number of lines of gMountedVols into gNumSelectedput TRUE into StartUpVolumeCheckedend ifgo cd "Volumes"repeat with vols = 1 to gNumofVolsset the name of cd btn vols to line vols of gMountedVolsset the hilite of cd btn vols to FALSEend repeatrepeat with erases = (gNumofVols + 1) to 9hide btn erasesend repeatset the hilite of cd btn StartUpVolume to TRUEpop cardset lockScreen to FALSEend setUpVolumeSelectionfunction appleShareCheckglobal gMountedVols,theErrorput empty into theErrorput LocalVolumeList("noDialog:theError") into localVolumesrepeat with i = 1 to the number of lines of gMountedVolsif line i of gMountedVols is not in localVolumes thenreturn(TRUE)exit appleShareCheckend ifend repeatreturn(empty)end appleShareCheck================================-- Global Management Handlers --================================on loadDatabasesglobal gVersionDB,gVendorDB,gAPPLSkipTypes,gINITSkipTypes,gSecurityDBglobal gINITDBset lockScreen to TRUEpush cardgo cd "Databases"put cd fld "VersionDB" into gVersionDBput cd fld "INITDB" into gINITDBput cd fld "VendorDB" into gVendorDBput cd fld "SkipList Applications" into gAPPLSkipTypesput cd fld "SkipList INITs" into gINITSkipTypesput cd fld "SecurityDB" into gSecurityDBpop cardset lockScreen to FALSEend loadDatabaseson releaseDatabasesglobal gVersionDB,gVendorDB,gAPPLSkipTypes,gINITSkipTypes,gINITDBput empty into gVersionDBput empty into gINITDBput empty into gVendorDBput empty into gAPPLSkipTypesput empty into gINITSkipTypesend releaseDatabaseson purgeReportGlobalsglobal IncompatibleSecuritySoftware,TheFinalReportglobal gUnknownINITs,MultipleSystemFolders,TotalRAMProblemglobal DiskSpaceVolumes,WarningsHolder,IncompatibleINITsput empty into IncompatibleSecuritySoftwareput empty into TheFinalReportput empty into gUnknownINITsput empty into MultipleSystemFoldersput empty into TotalRAMProblemput empty into DiskSpaceVolumesput empty into WarningsHolderput empty into IncompatibleINITsput empty into theFinalReportend purgeReportGlobals===================================-- Compatability Report Handlers --===================================on assembleReportglobal TheFinalReportset cursor to watchset lockScreen to TRUEprocessIncompatibleINITsprocessUnknownINITsdoOpeningdoWarningscreateItemTabledoEndingcreateVendorTabledoLegalEndinggo cd "Results"checkAndSplitReportend assembleReporton doOpeningglobal IncompatibleSecuritySoftware,TheFinalReport,gSelectedVolsglobal gUnknownINITs,MultipleSystemFolders,TotalRAMProblemglobal DiskSpaceVolumes,WarningsHolder,IncompatibleINITsglobal StartUpVolume,StartUpVolumeCheckedgo cd "Headers 1"if (gUnknownINITs&MultipleSystemFolders&TotalRAMProblem&¬DiskSpaceVolumes&IncompatibleINITs&IncompatibleSecuritySoftware) is ¬not empty then put cd fld "Attention"& RETURN & RETURN into openingput cd fld "Opening" & RETURN & RETURN & gSelectedVols & RETURN &¬RETURN after openingif StartUpVolumeChecked is TRUE thenput cd fld "Opening2" & StartUpVolume & cd fld "Opening3" &¬RETURN & RETURN after openingend ifput opening into TheFinalReportend doOpeningon doWarningsGlobal gINITsMoved,MultipleSystemFolders,INITProblemGlobal DiskSpaceVolumes,WarningsHolder,TotalRAMProblemGlobal IncompatibleSecuritySoftware,TheFinalReportglobal gUnknownINITs,IncompatibleINITsif (INITProblem&MultipleSystemFolders&TotalRAMProblem&¬DiskSpaceVolumes&IncompatibleSecuritySoftware) ¬is not empty thenput empty into WarningsHoldergo cd "Headers 1"--•INITsif gINITsMoved is empty thenif IncompatibleINITs is not empty then put cd fld ¬"Incompatible INITs" & RETURN & RETURN after WarningsHolderend if--•Multiple System Foldersif MultipleSystemFolders is not empty thengo cd "Headers 2"put cd fld "Multiple System Folders" & RETURN & RETURN ¬after WarningsHolderput MultipleSystemFolders & RETURN & RETURN after WarningsHolderend if--•Security Sofwareif IncompatibleSecuritySoftware is not empty thengo cd "Headers 1"put cd fld "Security Software"& RETURN & RETURN &¬IncompatibleSecuritySoftware & RETURN after¬WarningsHolderend if--•Insufficient RAMif TotalRAMProblem is not empty thengo cd "Headers 2"put cd fld "RAM" & RETURN & RETURN after WarningsHolderend if--•Insufficient Disk Spaceif DiskSpaceVolumes is not empty thengo cd "Headers 1"if the number of lines of DiskSpaceVolumes >1 thenrepeat with i = 1 to (the number of lines of DiskSpaceVolumes - 1)put "“"&line i of DiskSpaceVolumes&"”"&" and " after theVolumesend repeatput "“" & line (the number of lines of DiskSpaceVolumes) ¬of DiskSpaceVolumes &"”" after theVolumeselse put "“" & line 1 of DiskSpaceVolumes & "”" into theVolumesput cd fld "Disk Space 1" & theVolumes & " for installation."&¬ --∆RETURN & RETURN after WarningsHolderend ifif WarningsHolder is not empty then put WarningsHolder &¬RETURN after TheFinalReportend ifend doWarningson createItemTableglobal TheFinalReport,CurrentFiles,CompatibleFiles,IncompatibleFilesglobal UnknownFiles,gNumSelectedgo cd "Headers 2"if gNumSelected > 1 thenput cd fld "Table Heading" & RETURN & RETURN after TheFinalReportelseput cd fld "Table Heading 2" & RETURN & RETURN after TheFinalReportend ifput CurrentFiles & CompatibleFiles & IncompatibleFiles &¬UnknownFiles & RETURN & RETURN after TheFinalReportend createItemTableon doEndingglobal TheFinalReport,gSelectedVolsput "This report is based on compatibility information as of " &¬"Aug. 1,1991." & RETURN & RETURN & "END OF COMPATIBILITY REPORT"¬& RETURN & RETURN after TheFinalReport --∆end doEndingon createVendorTableglobal TheFinalReport,CurrentVendors,CompatibleVendorsglobal UnknownVendors,IncompatibleVendorsgo cd "Headers 2"put cd fld "Legend" & RETURN & RETURN & cd fld "Vendor Heading" &¬RETURN & RETURN & CurrentVendors & CompatibleVendors &¬IncompatibleVendors & UnknownVendors after TheFinalReportend createVendorTableon doLegalEndingglobal TheFinalReportgo cd "Headers 1"put RETURN & RETURN & cd fld "Ending" after TheFinalReportend doLegalEndingon checkAndSplitReportglobal theFinalReportgo cd "Results"set lockScreen to TRUEif the number of chars in theFinalReport < 30000 thenput theFinalReport into cd fld "Results"set the scroll of cd fld "Results" to 0set the rect of cd fld "Results" to "4,67,508,300"hide cd btn "Section 1" --∆hide cd btn "Section 2" --∆hide cd btn "Section 3" --∆elseif the number of chars in theFinalReport < 59400 thenput 29700 into stopCharrepeat until char stopChar of theFinalReport is returnsubtract 1 from stopCharend repeatput char 1 to stopChar of theFinalReport into section1put char stopChar to (the number of chars of theFinalReport) of ¬theFinalReport into section2put return & "•• Continued in Section 2 ••" after section1 --∆set the rect of cd fld "Results" to "4,67,508,282"set the rect of cd btn "Section 1" to "135,286,230,306" --∆set the rect of cd btn "Section 2" to "305,286,400,306" --∆show cd btn "Section 1" --∆show cd btn "Section 2" --∆put section1 into cd fld "Results"put section2 into cd fld "Results 2"send mouseUp to cd btn "Section 1" --∆set the scroll of cd fld "Results" to 0set the scroll of cd fld "Results 2" to 0else if the number of chars in theFinalReport < 89100 thenput 29700 into stopCharrepeat until char stopChar of theFinalReport is returnsubtract 1 from stopCharend repeatput 59400 into stopChar2repeat until char stopChar2 of theFinalReport is returnsubtract 1 from stopChar2end repeatput char 1 to stopChar of theFinalReport into section1put char (stopChar + 1) to stopChar2 of theFinalReport ¬into section2put char (stopChar2 + 1) to ¬(the number of chars of theFinalReport) of theFinalReport ¬into section3put return & "•• Continued in Section 2 ••" after section1 --∆put return & "•• Continued in Section 3 ••" after section2 --∆set the rect of card field "Results" to "4,67,508,282" --∆set the rect of cd btn "Section 1" to "85,286,180,306" --∆set the rect of cd btn "Section 2" to "217,286,312,306" --∆set the rect of cd btn "Section 3" to "343,286,438,306" --∆show cd btn "Section 1" --∆show cd btn "Section 2" --∆show cd btn "Section 3" --∆put section1 into cd fld "Results"put section2 into cd fld "Results 2"put section3 into cd fld "Results 3"send mouseUp to cd btn "Section 1" --∆set the scroll of cd fld "Results" to 0set the scroll of cd fld "Results 2" to 0set the scroll of cd fld "Results 3" to 0elseput "Compatibility Checker cannot accommodate a report larger "&¬"than 90K. Please return to the Set Up card and select fewer "&¬"disks to check." into answerStringanswer answerString with "Quit" or "Set Up" --∆if it is "Quit" then --∆doMenu "Quit HyperCard"exit to HyperCardelse if it is "Set Up" then --∆go cd "Volumes"end ifend ifend ifset lockScreen to FALSEpurgeReportGlobalsend checkAndSplitReporton processIncompatibleINITsglobal IncompatibleINITs,INITProblem,gNumSelected,IncompatibleFilesglobal IsVMCapable,Is32BitAddressable,gSecurityDBif IncompatibleINITs is not empty thenrepeat with i = 1 to the number of lines of IncompatibleINITsput line i of IncompatibleINITs into dataLineput item 1 of dataLine into fileNameput item 2 of dataLine into fileVersionput item 3 of dataLine into themessageput item 4 of dataLine into currentVersionput item 5 of dataLine into theVolumeNamerepeat with i = 1 to the number of chars of fileNameif charToNum of char i of fileName is 1 thendelete char i of fileNameput SPACE after char (i-1) of fileNameend ifend repeatif currentVersion is "99" then put "n/a" into currentVersion --∆else if currentVersion is "98" then put " " into currentVersionput TableWidth(fileName,"26")&TableWidth(fileVersion,"9")&¬"Must upgrade   " & TableWidth(currentVersion,"7") ¬ --∆after tempIncompatibleINITsif INITProblem is not empty thenif themessage is not empty thenif themessage is "VM" then --∆if IsVMCapable is TRUE thenput "VM  " after tempIncompatibleINITs --∆elseput "    " after tempIncompatibleINITsend ifelse if themessage is "AD" then --∆if Is32BitAddressable is TRUE thenput "AD  " after tempIncompatibleINITs --∆elseput "    " after tempIncompatibleINITsend ifelse if themessage is "FR" then put "FR  " after tempIncompatibleINITselse if themessage is "CD" then put "CD  " after tempIncompatibleINITselse if themessage is "MI" then put "MI  " after tempIncompatibleINITselse if themessage is "UP" then put "UP  " after tempIncompatibleINITselse if themessage is "RI" then put "RI  " after tempIncompatibleINITselse if themessage is "TT" then put "TT  " after tempIncompatibleINITselse if themessage is "EX" then put "EX  " after tempIncompatibleINITselse if themessage is "FS" then put "FS  " after tempIncompatibleINITselse if themessage is "UR" then put "UR  " after tempIncompatibleINITselse if themessage is "UN" thenput "UN  " after tempIncompatibleINITs --∆end ifelseput "    " after tempIncompatibleINITsend ifelseFindInXCMD gSecurityDB,fileName,1, FALSEput item 1 of the result into lineNumif lineNum = 0 then  -- not in database, so we don't care about itput "MO  " after tempIncompatibleINITs --∆elseput "    " after tempIncompatibleINITsend ifend ifif gNumSelected > 1 thenput VolFromPath(theVolumeName) into theVolumeNameput char 1 to 19 of theVolumeName into theVolumeNameput the number of chars of theVolumeName into totalCharsif char totalChars of theVolumeName is ":" thendelete char totalChars of theVolumeNameend ifput theVolumeName after tempIncompatibleINITsend ifput RETURN after tempIncompatibleINITsend repeatput tempIncompatibleINITs after IncompatibleFilesend ifend processIncompatibleINITson processUnknownINITsglobal INITProblem,UnknownINITs,gNumSelected,UnknownFilesif UnknownINITs is not empty thenrepeat with i = 1 to the number of lines of UnknownINITsput line i of UnknownINITs into dataLineput item 1 of dataLine into fileNameput item 2 of dataLine into fileVersionput item 3 of dataLine into theVolumeNameif "™" is in fileName then --∆put offset("™",fileName) into theChar --∆delete char theChar of fileNameend ifif "©" is in fileName then --∆put offset("©",fileName) into theChar --∆delete char theChar of fileNameend ifif "®" is in fileName then --∆put offset("®",fileName) into theChar --∆delete char theChar of fileNameend ifrepeat with i = 1 to the number of chars of fileNameif charToNum of char i of fileName is 1 thendelete char i of fileNameput SPACE after char (i-1) of fileNameend ifend repeatput TableWidth(fileName,"26")&TableWidth(fileVersion,"9") ¬after tempUnknownINITsif INITProblem is empty thenput TableWidth("Not avail.","15") & "       MO  " after ¬ --∆tempUnknownINITselseput TableWidth("Not avail.","26") after tempUnknownINITs --∆end ifif gNumSelected > 1 thenput VolFromPath(theVolumeName) into theVolumeNameput char 1 to 19 of theVolumeName into theVolumeNameput the number of chars of theVolumeName into totalCharsif char totalChars of theVolumeName is ":" thendelete char totalChars of theVolumeNameend ifput theVolumeName after tempUnknownINITsend ifput RETURN after tempUnknownINITsend repeatput tempUnknownINITs after UnknownFilesend ifend processUnknownINITs=====================================-- Compatability Checking Handlers --=====================================-- These belong in the bg script, but are here because of script size..on checkDiskSpace theVolumeglobal DiskSpaceVolumesput theVolume & ":" into volumeNameput DiskSpaceAvail(volumeName) into freeSpaceif (freeSpace div 1024) < 2048 thenput theVolume & RETURN after DiskSpaceVolumesend ifend checkDiskSpaceon checkTotalRAMglobal TotalRAMProblemput empty into TotalRAMProblemput TotalRAM() into totalRAMif (totalRAM/1024) < 2048 then put TRUE into TotalRAMProblemend checkTotalRAMon resumeStackhide menubarend resumeStackon doMenu whichglobal Editingif Editing is TRUE then pass doMenuelseif which is "First" then exit doMenuelse if which is "Next" then exit doMenuelse if which is "Prev" then exit doMenuelse if which is "Last" then exit doMenuelse if which is "New Card" then exit doMenupass doMenuend ifend doMenufunction inLoadLevelOfSysFolder pathName,sysVersput SystemFolder() into TheSystemFolderput the number of chars in TheSystemFolder into gSysFolderCharsif (sysVers) < 0700 thenFindInXCMD pathName, ":", gSysFolderChars+1, TRUEif item 1 of the result = 0 then return TRUEelse return FALSEelseFindInXCMD pathName, ":", gSysFolderChars+1, TRUEif item 1 of the result = 0 then return TRUEput gSysFolderChars+12 into initFolderLengthFindInXCMD pathName, ":",initFolderLength, TRUE--∆ Belowif (item 1 of the result = 0) and (":Extensions:" is in pathName) thenreturn TRUEend ifput gSysFolderChars+16 into cdevFolderLengthFindInXCMD pathName,":",cdevFolderLength, TRUEif (item 1 of the result = 0) and ¬(":Control Panels:" is in pathName) then --∆return TRUEend ifreturn FALSEend ifend inLoadLevelOfSysFolderon developer companysend "dev company" to cd "Databases"end developeron develop companysend "dev company" to cd "Databases"end developon dev companysend "dev company" to cd "Databases"end dev</script>
    <background id="2292" file="background_2292.xml" name="Data" />
    <background id="2793" file="background_2793.xml" name="Splash" />
    <background id="3397" file="background_3397.xml" name="Checker" />
    <card id="7471" file="card_7471.xml" marked="false" name="Splash 1" owner="2793" />
    <card id="8344" file="card_8344.xml" marked="false" name="Splash 2" owner="2793" />
    <card id="9358" file="card_9358.xml" marked="false" name="Splash 3" owner="2793" />
    <card id="3831" file="card_3831.xml" marked="false" name="Introduction" owner="3397" />
    <card id="4575" file="card_4575.xml" marked="false" name="Volumes" owner="3397" />
    <card id="5379" file="card_5379.xml" marked="false" name="Caution—INITs" owner="3397" />
    <card id="6065" file="card_6065.xml" marked="false" name="Results" owner="3397" />
    <card id="2358" file="card_2358.xml" marked="false" name="Databases" owner="2292" />
    <card id="4234" file="card_4234.xml" marked="false" name="Headers 1" owner="2292" />
    <card id="4626" file="card_4626.xml" marked="false" name="Headers 2" owner="2292" />
    <card id="8509" file="card_8509.xml" marked="false" name="WhoDunIt" owner="2292" />
</stack>